home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / DTMedia / Aldus Persuasion / INTERACTIVE / INTERACTIVE.rsrc / TEXT_1163.txt < prev    next >
Text File  |  1988-11-03  |  285b  |  14 lines
  1. #macro to detect icon drag
  2. set &K = mouseh
  3. set &L = mousev
  4. set &Y = spriteh[10]-mouseh
  5. set &Z = spritev[10] -mousev
  6. goto 667
  7. IF STILLDOWN THEN skip 3
  8. goto 659
  9. exit
  10. IF ABS(mouseH-&K) > 1 THEN SKIP 3
  11. IF ABS(mouseV-&L) > 1 THEN SKIP 2
  12. SKIP -5
  13. set &A = 1
  14. WHEN MOUSEUP THEN CALL c24ÀáÀá